setClass("HTestRunner",contains="VTestRunner",
		prototype=prototype(
				.description="Hypothesis test Runner Class"
		)
) 

#methods

setMethod("runTest",
		signature="HTestRunner",
		definition=function(.Object,...){
			
			setListLen <- length(.Object@.setList)
			tmpBootstraper <-NULL
			for(setN in 1:setListLen){
				#initialize bootstraper with new set
				tmpBootstraper <- changeSet(.Object@.bootstraperPrototype,.Object@.setList[[setN]])
				#initialize BFramework
				BF <- new("BootstrapFramework", bootstraper=tmpBootstraper,
						scoreObj=.Object@.scoreObj, listComp = .Object@.compList, 
						finalResultProducer = .Object@.finalResultComp)
				
				result <-runFramework(BF)
				result[["ScoreOBJ"]] <- get_description(.Object@.scoreObj)
				result[["Name"]] <-.Object@.setList[[setN]]$Name
				#save framework result in output directory
				save(result,file=paste(.Object@.resultsDirectory,"/",.Object@.setList[[setN]]$Name,".rda",sep=""))
			}

			#return(.Object)
			return(NULL)
		})

